home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / chr0me61c.exe / remote.ini < prev    next >
Encoding:
INI File  |  1997-02-17  |  21.1 KB  |  579 lines
  1. [Variables]
  2. n0=%highprot Disabled
  3. n1=%ctcpprot Enabled
  4. n2=%dccprot Disabled
  5. n3=%textprot Enabled
  6. n4=%txtflood ON
  7. n5=%color OFF
  8. n6=%caps ON
  9. n7=%memax 3
  10. n8=%meflood ON
  11. n9=%swear ON
  12. n10=%nicks 2
  13. n11=%msg 5
  14. n12=%notemax 5
  15. n13=%mcharmax 375
  16. n14=%ncharmax 375
  17. n15=%msgmax 5
  18. n16=%txtmax 3
  19. n17=%ctcpmax 2
  20. n18=%clonemax 2
  21. n19=%ctcpreply Disabled
  22. n20=%reply ON
  23. n21=%display echo 4 -a
  24. n22=%cdisplay echo 4 -a
  25. n23=%noteprot Enabled
  26. n24=%kickmax 3
  27. n25=%deopmax 3
  28. n26=%massprot ON
  29. n27=%dccmax 5
  30.  
  31. [Commands]
  32. n0=#XDCC start
  33. n1=1:XDCC {
  34. n2=  if ($parm2 == help) { goto help | halt }
  35. n3=  elseif ($parm2 == list) { goto list | halt }
  36. n4=  else { goto send | halt }
  37. n5=  :help
  38. n6=  .ignore -tu5 $wildsite
  39. n7=  echo 4 $active -XDCC Requested By $nick ( $+ $address$+ )-
  40. n8=  notice $nick -Now Listing XDCC Options-
  41. n9=  notice $nick Syntax: /ctcp $me XDCC <Option>
  42. n10=  notice $nick List: Lists XDCC files
  43. n11=  notice $nick Get #<Pack Number>: Recieve oack number specified
  44. n12=  goto end
  45. n13=  :list
  46. n14=  .ignore -tu5 $wildsite
  47. n15=  echo 4 $active XDCC Requested By $nick *1*@ $+ $site
  48. n16=  notice $nick  -Now listing XDCC files...-
  49. n17=  if (%pack1 == $null) { notice $nick -Pack #1 Is Empty!- | halt }
  50. n18=  else { notice $nick Pack #1 Description  %desc1  File:  %pack1  %size1 Bytes | halt }
  51. n19=  if (%pack2 == $null) { notice $nick -Pack #2 Is Empty!- | halt }
  52. n20=  else { notice $nick Pack #2 Description  %desc2  File:  %pack2  %size2 Bytes | halt }
  53. n21=  if (%pack3 == $null) { notice $nick -Pack #3 Is Empty!- | halt }
  54. n22=  else { notice $nick Pack #3 Description  %desc3  File:  %pack3  %size3 Bytes | halt }
  55. n23=  if (%pack4 == $null) { notice $nick -Pack #4 Is Empty!- | halt }
  56. n24=  else { notice $nick Pack #3 Description  %desc4  File:  %pack4  %size4 Bytes | halt }
  57. n25=  goto end
  58. n26=  :send
  59. n27=  if ($parm2 != get) { goto help | halt }
  60. n28=  if ($parm3 == $null) { .notice $nick Syntax: /ctcp $me GET #<Pack Number> | halt }
  61. n29=  if ($parm3 == 1) {
  62. n30=    .ignore -tu5 $wildsite
  63. n31=    dcc send $nick %path1 
  64. n32=    notice $nick Sendεng %pack1
  65. n33=    echo 4 Sending $nick %pack1
  66. n34=    goto end
  67. n35=  }
  68. n36=  if ($parm3 == 2) {
  69. n37=    .ignore -tu5 $wildsite
  70. n38=    dcc send $nick %path2
  71. n39=    notice $nick Sendεng %pack2
  72. n40=    echo 4 Sending $nick %pack2
  73. n41=    goto end
  74. n42=  }
  75. n43=  if ($parm3 == 3) {
  76. n44=    .ignore -tu5 $wildsite
  77. n45=    dcc send $nick %path3
  78. n46=    notice $nick Sendεng %pack3
  79. n47=    echo 4 Sending $nick %pack3
  80. n48=    goto end
  81. n49=  }
  82. n50=  if ($parm3 == 4) {
  83. n51=    .ignore -tu5 $wildsite
  84. n52=    dcc send $nick %path4
  85. n53=    notice $nick Sendεng %pack4
  86. n54=    echo 4 Sending $nick %pack4
  87. n55=    goto end
  88. n56=  }
  89. n57=  else { notice $nick - $+ $parm3 Is Not A Valid Pack Number!- | halt }
  90. n58=  :end
  91. n59=}
  92. n60=#XDCC end
  93. n61=;
  94. n62=#pager disabled
  95. n63=1:PAGE {
  96. n64=  inc %awaymsg 1
  97. n65=  .ignore -tu5 $wildsite
  98. n66=  notice $nick I have just been paged. Msg me if i dont answer in 2 minutes.
  99. n67=  wavplay $mircdir\wavs\page.wav
  100. n68=  echo 4 $active $nick ( $+ $address $+ ) has just paged you !
  101. n69=  write page.log Recieved PAGE From $nick ( $+ $address $+ ) At $atime
  102. n70=}
  103. n71=#pager end
  104. n72=;
  105. n73=#high disabled
  106. n74=1:*:halt
  107. n75=#high end
  108. n76=;
  109. n77=#ctcpprot start
  110. n78=1:PING {
  111. n79=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  112. n80=  else {
  113. n81=    inc %ctcp
  114. n82=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  115. n83=    .timer 1 5 /set %ctcp 0
  116. n84=    halt
  117. n85=  }
  118. n86=}
  119. n87=1:VERSION {
  120. n88=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  121. n89=  else {
  122. n90=    inc %ctcp
  123. n91=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  124. n92=    .timer 1 5 /set %ctcp 0
  125. n93=    halt
  126. n94=  }
  127. n95=}
  128. n96=1:FINGER {
  129. n97=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  130. n98=  else {
  131. n99=    inc %ctcp
  132. n100=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  133. n101=    .timer 1 5 /set %ctcp 0
  134. n102=    halt
  135. n103=  }
  136. n104=}
  137. n105=1:USERINFO {
  138. n106=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  139. n107=  else {
  140. n108=    inc %ctcp
  141. n109=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  142. n110=    .timer 1 5 /set %ctcp 0
  143. n111=    halt
  144. n112=  }
  145. n113=}
  146. n114=1:CLIENTINFO {
  147. n115=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  148. n116=  else {
  149. n117=    inc %ctcp
  150. n118=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  151. n119=    .timer 1 5 /set %ctcp 0
  152. n120=    halt
  153. n121=  }
  154. n122=}
  155. n123=1:SOUND {
  156. n124=  if (%ctcp == %ctcpmax) { ignore -tu30 $wildsite | echo 4 $active CTCP Protection | echo 4 $active  $+ $parm1 $+  Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  157. n125=  else {
  158. n126=    inc %ctcp
  159. n127=    echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  160. n128=    .timer 1 5 /set %ctcp 0
  161. n129=    halt
  162. n130=  }
  163. n131=}
  164. n132=#ctcpprot end
  165. n133=;
  166. n134=#dccprot disabled
  167. n135=1:DCC SEND: {
  168. n136=  if ($parm5 == 19) {
  169. n137=    close -g $nick
  170. n138=    .ignore -u60 $wildsite
  171. n139=    echo 4 $active FAKE DCC SEND :$parm3 Size: $parm6 From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | goto end
  172. n140=  }
  173. n141=  if (%accept == OFF) {
  174. n142=    .ignore -u5 $wildsite
  175. n143=    notice $nick Sorry, i'm Not Accepting DCC's Right Now. Msg Me To See If I Will
  176. n144=    echo 4 $active DCC SEND From $nick ( $+ $address $+ ) ignored
  177. n145=    goto end
  178. n146=  }
  179. n147=  else {
  180. n148=    if (%dcc == %dccmax) { ignore -ntu30 $wildsite | echo 4 $active DCC Protection | echo 4 $active DCC SEND Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  181. n149=    else {
  182. n150=      inc %dcc
  183. n151=      echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  184. n152=      .timer 1 5 /set %dcc 0
  185. n153=      halt
  186. n154=    }
  187. n155=  }
  188. n156=  :end
  189. n157=  halt
  190. n158=}
  191. n159=1:DCC CHAT: {
  192. n160=  if ($parm5 == 19) {
  193. n161=    close -c $nick
  194. n162=    .ignore -u60 $wildsite
  195. n163=    echo 4 $active PORT 19 CHAT BOMB From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav
  196. n164=  }
  197. n165=  if (%accept == OFF) {
  198. n166=    .ignore -u5 $wildsite
  199. n167=    notice $nick Sorry, i'm Not Accepting DCC's Right Now. Msg Me To See If I Will
  200. n168=    echo 4 $active DCC SEND From $nick ( $+ $address $+ ) ignored
  201. n169=    goto end
  202. n170=  }
  203. n171=  else {
  204. n172=    if (%dcc == %dccmax) { ignore -ntu30 $wildsite | echo 4 $active DCC Protection | echo 4 $active DCC CHAT Flood From $nick ( $+ $address $+ ) | wavplay $mircdir\wavs\alert.wav | halt }
  205. n173=    else {
  206. n174=      inc %dcc
  207. n175=      echo 4 $active  $+ $parm1 $+  From $nick ( $+ $address $+ )
  208. n176=      .timer 1 5 /set %dcc 0
  209. n177=      halt
  210. n178=    }
  211. n179=  }
  212. n180=  :end
  213. n181=  halt
  214. n182=}
  215. n183=#dccprot end
  216.  
  217. [Events]
  218. n0=1:ON TEXT:*ping me*:#:ping $nick | notice $nick -Auto Ping- | guser 25 $nick 3
  219. n1=@50:ON JOIN:#:mode $chan +v $nick | notice $nick -Auto Voice-
  220. n2=@75:ON JOIN:#:mode $chan +o $nick | notice $nick -Auto Op-
  221. n3=@100:ON JOIN:#:mode $chan +o $nick | notice $nick -Auto Op-
  222. n4=@150:ON JOIN:#:ban $chan $nick 3 | kick $chan $nick _(-cr-)_)Bytchlisted. GET OUT!(_(-cr-)_
  223. n5=@175:ON JOIN:#:op $nick | notice $nick -Auto Op-
  224. n6=@1:ON DEOP:# {
  225. n7=  if ($level($address($nick,3)) == 175) { mode $chan +o-o $nick $opnick | msg $chan $opnick iº A Protected User }
  226. n8=  else {
  227. n9=    if (%massprot == on) {
  228. n10=      if (%deop >= %deopmax) { kick $chan $nick _(-cr-)_)DEOP Flood. Passed A Max Of  $+ %deopmax $+  Deops(_(-cr-)_ | unset %deop | halt }
  229. n11=      inc %deop
  230. n12=      .timer 1 2 /set %deop 0
  231. n13=    }
  232. n14=  } 
  233. n15=}
  234. n16=@1:ON KICK:# {
  235. n17=  if ($level($address($nick,3)) == 175) { invite $nick $chan | kick $chan $knick _(-cr-)_) $+ $nick is A Protected User(_(-cr-)_ }
  236. n18=  else {
  237. n19=    if (%massprot == on) {
  238. n20=      if (%kik >= %kickmax) { kick $chan $nick _(-cr-)_)KICK Flood. Passed A Max Of  $+ %kickmax $+  Kicks(_(-cr-)_ | unset %kik | halt }
  239. n21=      inc %kik
  240. n22=      .timer 1 2 /set %kik 0
  241. n23=    }
  242. n24=  }
  243. n25=}
  244. n26=#textprot start
  245. n27=1:ON TEXT:*:? {
  246. n28=  if (%txt == %msgmax) { .ignore -up10 $nick 4 | echo 4 $active TEXT Protection | echo 4 $active MSG Flood from $nick ( $+ $address $+ ) | halt }
  247. n29=  else {
  248. n30=    inc %txt
  249. n31=    .timer 1 5 /set %txt 0
  250. n32=    halt
  251. n33=  }
  252. n34=}
  253. n35=1:ON TEXT:?:if ($len($parms) >= %mcharmax) { .ignore -up10 $nick 4 | echo 4 $active TEXT Protection | echo 4 $active MSG From $nick ( $+ $address $+ ) Exeeds  $+ %charmax $+  Characters | halt }
  254. n36=#textprot end
  255. n37=;
  256. n38=#noteprot start
  257. n39=1:ON NOTICE:*:# {
  258. n40=  if (%not == %notemax) { .ignore -up10 $nick 4 | echo 4 $active TEXT Protection | echo 4 $active NOTICE Flood from $nick ( $+ $address $+ ) | halt }
  259. n41=  else {
  260. n42=    inc %not
  261. n43=    .timer 1 5 /set %not 0
  262. n44=    halt
  263. n45=  }
  264. n46=}
  265. n47=1:ON NOTICE:?:if ($len($parms) >= %ncharmax) { .ignore -up10 $nick 4 | echo 4 $active TEXT Protection | echo 4 $active NOTICE From $nick ( $+ $address $+ ) Exeeds  $+ %charmax $+  Characters | halt }
  266. n48=#noteprot end
  267. n49=;
  268. n50=#awaymsg disabled
  269. n51=1:ON TEXT:*:? {
  270. n52=  inc %awaymsg
  271. n53=  .ignore -u10 $wildsite
  272. n54=  wavplay $mircdir\wavs\page.wav
  273. n55=  write $mircdir\page.log [ $+ $atime $+ Of $date $+ ] [ $+ $nick $+ Of $address $+ ] Wrote $parms
  274. n56=  notice $nick I Am Away At The Moment. Your Msg Has Been Saved. ctcp $me PAGE To Page Me. I Have Been Gone Since  $+ %time $+ 
  275. n57=  closemsg $nick
  276. n58=}
  277. n59=#awaymsg end
  278. n60=;
  279. n61=1:ON CTCPREPLY:*ping* {
  280. n62=  %ping = $ctime - $parm2
  281. n63=  if ($level($address($nick,3)) == 25) { Notice $nick -Your Ping Reply Was  $+ %ping $+  Seconds- | .ruser 25 $nick }
  282. n64=  if (%ping == ON) { echo 4 $active -Ping Reply From $nick Was  $+ %ping %+  Secnods- }
  283. n65=  halt
  284. n66=} 
  285. n67=;
  286. n68=#replyprot start
  287. n69=1:ON CTCPREPLY:*:halt
  288. n70=#replyprot end
  289. n71=;
  290. n72=@1:ON BAN:#: {
  291. n73=  if ($banmask iswm $address($me,1)) || ($banmask iswm $address($me,2)) || ($banmask iswm $address($me,3)) || ($banmask iswm $address($me,4)) {
  292. n74=    mode $chan -ob+b $nick $banmask *!*@ $+ $site
  293. n75=    kick $chan $nick  _(-cr-)_)BAN Protection(_(-cr-)_
  294. n76=  } 
  295. n77=}
  296. n78=;
  297. n79=@1:ON TEXT:*:#:{
  298. n80=  if ($nick isop $chan) { goto end }
  299. n81=  if (%txtflood == on) {
  300. n82=    inc % $+ $site $+ txtflood
  301. n83=    .timer 1 5 unset % $+ $site $+ txtflood
  302. n84=    if % [ $+ [ $site [ $+ [ txtflood ] ] ] ] == %txtmax {
  303. n85=      kick $chan $nick _(-cr-)_)TEXT FLood. Passed A Max Of  $+ %txtmax $+  Lines(_(-cr-)_
  304. n86=      unset % $+ $site $+ txtflood
  305. n87=    }
  306. n88=  }
  307. n89=  if (%color == ON) && (*** isin $parms) { kick $chan $nick _(-cr-)_)Stop The Blinding Colors!!(_(-cr-)_ }
  308. n90=  if (%swear == ON) && (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick _(-cr-)_)Watch Your Mouth!(_(-cr-)_ | halt }
  309. n91=  if (%repeat == ON) {
  310. n92=    if % [ $+ [ $nick [ $+ [ .text ] ] ] ] == $parms { kick $chan $nick _(-cr-)_)We Heard You The First Time(_(-cr-)_ | unset % [ $+ [ $nick [ $+ [ .text ] ] ] ] }
  311. n93=    else { 
  312. n94=      set % [ $+ [ $nick [ $+ [ .text ] ] ] ] $parms
  313. n95=      .timer 1 5 /unset % [ $+ [ $nick [ $+ [ .text ] ] ] ]
  314. n96=    }
  315. n97=  }
  316. n98=  if (%caps == ON) {
  317. n99=    if ($level($address($nick,0)) >= 10) { goto end }
  318. n100=    set %x 1
  319. n101=    set %text $len($parms)
  320. n102=    if %text < 6 { goto end } 
  321. n103=    if ($nick == %cap) { goto first }
  322. n104=    else { goto start }
  323. n105=    :start
  324. n106=    if %x > %text { goto kick } 
  325. n107=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start } 
  326. n108=    else { goto end } 
  327. n109=    :kick
  328. n110=    set %cap $nick
  329. n111=    kick $chan $nick _(-cr-)_)Excess CAPS(_(-cr-)_
  330. n112=    halt
  331. n113=    :first
  332. n114=    if %x > %text { goto second } 
  333. n115=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
  334. n116=    else { goto end }
  335. n117=    halt
  336. n118=    :second
  337. n119=    kick $chan $nick _(-cr-)_)60 Second Ban For Excess CAPS(_(-cr-)_
  338. n120=    ban -u60 $chan $nick 3
  339. n121=    unset %cap
  340. n122=    halt
  341. n123=    :end
  342. n124=  }
  343. n125=}
  344. n126=;
  345. n127=@1:ON ACTION:*:#:{
  346. n128=  if ($nick isop $chan) { goto end }
  347. n129=  if (%meflood == on) {
  348. n130=    inc % $+ $site $+ meflood
  349. n131=    .timer 1 5 unset % $+ $site $+ meflood
  350. n132=    if % [ $+ [ $site [ $+ [ meflood ] ] ] ] == %memax {
  351. n133=      kick $chan $nick _(-cr-)_)ACTION Flood. Passed A Max Of  $+ %memax $+  Actions(_(-cr-)_
  352. n134=      unset % $+ $site $+ meflood
  353. n135=    }
  354. n136=  }
  355. n137=  if (%color == ON) && (*** isin $parms) { kick $chan $nick _(-cr-)_)Stop The Blinding Colors!!(_(-cr-)_ }
  356. n138=  if (%swear == ON) && (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick _(-cr-)_)Watch Your Mouth!(_(-cr-)_ | halt }
  357. n139=  if (%repeat == ON) {
  358. n140=    if % [ $+ [ $nick [ $+ [ .text ] ] ] ] == $parms { kick $chan $nick _(-cr-)_)We Heard You The First Time(_(-cr-)_ | unset % [ $+ [ $nick [ $+ [ .text ] ] ] ] }
  359. n141=    else { 
  360. n142=      set % [ $+ [ $nick [ $+ [ .text ] ] ] ] $parms
  361. n143=      .timer 1 5 /unset % [ $+ [ $nick [ $+ [ .text ] ] ] ]
  362. n144=    }
  363. n145=  }
  364. n146=  if (%caps == ON) {
  365. n147=    if ($level($address($nick,0)) >= 10) { goto end }
  366. n148=    set %x 1
  367. n149=    set %text $len($parms)
  368. n150=    if %text < 6 { goto end } 
  369. n151=    if ($nick == %cap) { goto first }
  370. n152=    else { goto start }
  371. n153=    :start
  372. n154=    if %x > %text { goto kick } 
  373. n155=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start } 
  374. n156=    else { goto end } 
  375. n157=    :kick
  376. n158=    set %cap $nick
  377. n159=    kick $chan $nick _(-cr-)_)Excess CAPS(_(-cr-)_
  378. n160=    halt
  379. n161=    :first
  380. n162=    if %x > %text { goto second } 
  381. n163=    if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
  382. n164=    else { goto end }
  383. n165=    halt
  384. n166=    :second
  385. n167=    kick $chan $nick _(-cr-)_)60 Second Ban For Excess CAPS(_(-cr-)_
  386. n168=    ban -u60 $chan $nick 3
  387. n169=    unset %cap
  388. n170=    halt
  389. n171=    :end
  390. n172=  }
  391. n173=}
  392. n174=;
  393. n175=#clone start
  394. n176=@1:ON JOIN:#: {
  395. n177=  %clonescount = 0
  396. n178=  %nickcounter = 1
  397. n179=  %clonesfound
  398. n180=  %skipnicks = ...
  399. n181=  :loop1start
  400. n182=  :nick
  401. n183=  %workingnick = $nick(%nickcounter,$active)
  402. n184=  if ( %workingnick == $null ) { goto loop1end }
  403. n185=  if ( %workingnick isin %clonesfound ) { inc %nickcounter | goto nick }
  404. n186=  %workingaddress = $address(%workingnick,3)
  405. n187=  if ( %workingaddress == $null ) { 
  406. n188=  %skipnicks = %workingnick $+ , $+ %skipnicks | inc %nickcounter | goto nick }
  407. n189=  inc %nickcounter
  408. n190=  %nicksubcounter = %nickcounter
  409. n191=  %clonessubcount = 0
  410. n192=  %clonessubfound = ...
  411. n193=  :loop2start
  412. n194=  %currentnick = $nick(%nicksubcounter,$active)
  413. n195=  if %currentnick == $null goto loop2end
  414. n196=  if ( %workingnick != %currentnick && %workingaddress ) == $address(%currentnick,3) {
  415. n197=    inc %clonessubcount | inc %clonescount | 
  416. n198=    %clonessubfound = %currentnick $+ , $+ %clonessubfound 
  417. n199=  %clonesfound = %currentnick $+ , $+ %clonesfound }
  418. n200=  inc %nicksubcounter
  419. n201=  goto loop2start
  420. n202=  :loop2end
  421. n203=  if ( %clonessubcount > %clonemax ) { ban $chan %workingnick 4 | kick $chan $remove(%clonessubfound,,...) _(-cr-)_)Clones Detected At %workingaddress $+ (_(-cr-)_ | kick $chan %workingnick _(-cr-)_)Clones Detected At %workingaddress $+ (_(-cr-)_ }
  422. n204=  goto loop1start
  423. n205=  :loop1end
  424. n206=  unset %skipnicks | unset %workingnick | unset %workingaddress
  425. n207=}
  426. n208=#clone end
  427. n209=;
  428. n210=#nethack disabled
  429. n211=1:ON SERVEROP:#:mode $chan -o $opnick
  430. n212=1:ON SERVERMODE:mode $chan:+nt-milkp
  431. n213=#nethack end
  432. n214=;
  433. n215=@1:ON NICK:{
  434. n216=  if ($nick isop $chan) { goto end }
  435. n217=  if (%nickprot == ON) {
  436. n218=    if (fuck isin $nick) || (shit isin $nick) || (dick isin $nick) || (pussy isin $nick) || (bitch isin $nick) || (cunt isin $nick) { kick $chan $nick _(-cr-)_)Lose The Perverted Nick(_(-cr-)_ | halt }
  437. n219=    inc % $+ $site $+ nick
  438. n220=    .timer 1 5 unset % $+ $site $+ nick
  439. n221=    if % [ $+ [ $site [ $+ [ nick ] ] ] ] == %nickmax {
  440. n222=      kick $chan $nick _(-cr-)_)NICK Flood. Passed A Max Of  $+ $nickmax $+  Nicks(_(-cr-)_
  441. n223=      unset % $+ $site $+ nick
  442. n224=      halt
  443. n225=      :end
  444. n226=    }
  445. n227=  }
  446. n228=}
  447. n229=;
  448. n230=#linklooker start
  449. n231=1:ON QUIT:if (undernet isin $parms) || (dalnet isin $parms) && (collision !isin $parms) { echo 4 $active -Possible NETSPLIT Detected At  $+ $parms $+ - | halt }
  450. n232=#linklooker end
  451. n233=;
  452. n234=#door disabled
  453. n235=1:ON JOIN:#: {
  454. n236=  .guser 10 $nick 3
  455. n237=  .timer 1 60 /ruser $nick 3
  456. n238=}
  457. n239=10:ON PART:#: {
  458. n240=  ban $chan $nick 3
  459. n241=  msg $chan $nick Is Banned For Revolving Door
  460. n242=  .ruser $nick 3
  461. n243=}
  462. n244=10:ON TEXT:*:#:ruser $nick 3
  463. n245=#door end
  464.  
  465. [Raw]
  466. n0=#whois start
  467. n1=311:*:echo 4 $active Whois For: $parm2 | echo 4 $active Address: $parm3 $+ @ $+ $parm4 | echo 4 $active Name: $parm6* | halt
  468. n2=312:*:echo 4 $active Server: $parm3* | halt
  469. n3=313:*:echo 4 $active $parm2 is An IRC Operator | halt
  470. n4=317:*:{
  471. n5=  %id1 = $parm3 / 3600
  472. n6=  %id2 = $parm3 % 3600
  473. n7=  %id3 = %temp2 / 60
  474. n8=  %id4 = %temp2 % 60
  475. n9=  if (%id1 > 0) { echo 4 $active Idle Time: %id1 Hour(s) %id3 Minute(s) %id4 second(s) }
  476. n10=  elseif (%id3 > 0) { echo 4 $active Idle Time: %id3 Minute(s) %id4 second(s) }
  477. n11=  else { echo 4 $active Idle Time: %id4 second(s) }
  478. n12=  halt
  479. n13=}
  480. n14=318:*:echo 4 $active End Of Whois | halt
  481. n15=319:*:echo 4 $active Channels: $parm3* | halt
  482. n16=301:*:echo 4 $active $parm2 is Away: $parm3* | halt
  483. n17=401:*:echo 4 $active $parm2 is Not On IRC | halt
  484. n18=#whois end
  485. n19=#chanstat disabled
  486. n20=352:* {
  487. n21=  if ($parm4 isin %address) { inc %clone } | else { %address = %address $parm4 }
  488. n22=  if (* isin $parm7) { inc %ircop | set %pig $parm2 }
  489. n23=  if (@ isin $parm7) { inc %op } | else { inc %nonop }
  490. n24=  if (+ isin $parm7) { inc %voice } | else { inc %novoice }
  491. n25=  if (G isin $parm7) { inc %gone }
  492. n26=  if (H isin $parm7) { inc %here }
  493. n27=  inc %total
  494. n28=  halt
  495. n29=}
  496. n30=315:* {
  497. n31=  %display Chanstats For  $+ %chan $+ 
  498. n32=  %display Ops  $+ %op $+  ╗ Non-Ops  $+ %nonop $+ 
  499. n33=  %display Voice  $+ %voice $+  ╗ Non-Voice  $+ %novoice $+ 
  500. n34=  %display Away  $+ %gone $+  ╗  Here  $+ %here $+ 
  501. n35=  %display Clones  $+ %clone $+  ╗ IRCops  $+  %ircop $+ 
  502. n36=  %display Grand Total  $+ %total $+ 
  503. n37=  %display End Of List!
  504. n38=  unset %clone
  505. n39=  unset %ircop
  506. n40=  unset %op
  507. n41=  unset %nonop
  508. n42=  unset %voice
  509. n43=  unset %novoice
  510. n44=  unset %gone
  511. n45=  unset %option
  512. n46=  unset %here
  513. n47=  unset %address
  514. n48=  unset %total
  515. n49=  unset %chan
  516. n50=  .disable #chanstat
  517. n51=  halt
  518. n52=}
  519. n53=#chanstat end
  520. n54=;
  521. n55=clones disabled
  522. n56=352:*: {
  523. n57=  set -q %nick $parm6
  524. n58=  if ($parm4 == $host) { halt }
  525. n59=  if ($parm4 isin %address) { inc %clone | %cdisplay Clone  $+ %clone $+   %nick ( $+ $parm3 $+ @ $+ $parm4 $+ ) }
  526. n60=  %address = %address $parm4
  527. n61=  halt
  528. n62=}
  529. n63=315:*: {
  530. n64=  .disable #clones
  531. n65=  if (%clone == $null) { %cdisplay Grand Total 0 | halt }
  532. n66=  %cdisplay Grand Total  $+ %clone $+ 
  533. n67=  %cdisplay End Of List!
  534. n68=  if ($me !isop $chan) { goto end }
  535. n69=  else {
  536. n70=    if ($$?="Kick Clones? [Y/N]" == N) { unset %chan | unset %address | unset %nick | unset %clone }
  537. n71=  }
  538. n72=  else { F8 | halt }
  539. n73=  :end
  540. n74=  unset %chan | unset %address | unset %nick | unset %clone
  541. n75=  halt
  542. n76=}
  543. n77=#clones end
  544. n78=;
  545. n79=#ircop disabled
  546. n80=352:* {
  547. n81=  echo 4 $active $parm6 * $+ $parm5
  548. n82=  inc %total
  549. n83=  halt
  550. n84=}
  551. n85=315:* {
  552. n86=  echo 4 $active Grand Total-- $+ %total $+ 
  553. n87=  echo 4 $active End Of List!
  554. n88=  unset %total
  555. n89=  unset %option
  556. n90=  unset %window
  557. n91=  .disable #ircop
  558. n92=  halt
  559. n93=}
  560. n94=#ircop end
  561. n95=1:*:halt
  562. n96=2:*:halt
  563. n97=3:*:halt
  564. n98=4:*:halt
  565. n99=251:*:halt
  566. n100=252:*:halt
  567. n101=253:*:halt
  568. n102=254:*:halt
  569. n103=255:*:halt 
  570. n104=371:*:halt
  571. n105=372:*:halt
  572. n106=373:*:halt
  573. n107=374:*:halt
  574. n108=375:*:halt 
  575. n109=376:*:halt
  576. n110=471:*:echo 4 $active -Cannot Join Channel (it's Full)-
  577. n111=473:*:echo 4 $active -Cannot Join Channel (it's Invite Only)-
  578. n112=474:*:echo 4 $active -Cannot Join Channel (You're Banned)-
  579. n113=475:*:echo 4 $active -Cannot Join Channel (Requires The Correct Key)-